﻿Public Class InquiryForm

    Private Sub InquiryForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBoxRef.Text = nextRandom(999999, 100000).ToString
        TextBoxNumeroPedido.Text = nextRandom(9999, 1).ToString
        TextBoxFecha.Text = DateValue(Now)
        PictureBox1.Image = currentDisplayImage
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(AcceptButton, MsgBoxStyle.Information, "Pedido realizado exitosamente")
        Close()
    End Sub
End Class